home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
cdity
/
ClipTool38_1.lha
/
ClipTool
/
rexx
/
saveclip.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1994-01-24
|
414b
|
18 lines
/*
* saveclip - Save the contents of the clipboard to a file.
*/
parse arg fname
address cliptool
'getnumber var before'
'paste'
'getnumber var after'
if before < after then do
'getcreateicons var state'
'createicons off' /* we don't want an icon */
'saveas name' fname 'dir' pragma('Directory')
'erase'
'createicons' state /* restore the previous state */
end
else say 'Clipboard is empty'